(format t "web context root dir is ~a!<br/>" *web-context-root-dir*)
(load (concatenate 'string *web-context-root-dir* "/bar.lisp"))
(format t "~a<br/>" (jcall "getName" (jcall "getClass" *request*)))
(format t "~a<br/>" (jcall "getName" (jcall "getClass" *response*)))

